home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
iconed1a
/
colorpal.frm
< prev
next >
Wrap
Text File
|
1999-09-24
|
16KB
|
471 lines
VERSION 5.00
Begin VB.Form ColorPalette
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "IconWorks Color Palette"
ClientHeight = 3090
ClientLeft = 1590
ClientTop = 1935
ClientWidth = 5670
ClipControls = 0 'False
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
HelpContextID = 1906
Icon = "COLORPAL.frx":0000
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 3090
ScaleWidth = 5670
Begin VB.PictureBox Pic_ColorPalette
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1005
Left = 60
ScaleHeight = 945
ScaleWidth = 5490
TabIndex = 0
Top = 60
Width = 5550
End
Begin VB.HScrollBar Scrl_RGB
Height = 300
Index = 0
LargeChange = 10
Left = 750
Max = 255
TabIndex = 4
Top = 1260
Width = 2550
End
Begin VB.TextBox Txt_RGB
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 0
Left = 3330
TabIndex = 7
Top = 1260
Width = 480
End
Begin VB.PictureBox Pic_RGB
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 0
Left = 3840
ScaleHeight = 360
ScaleWidth = 525
TabIndex = 15
Top = 1260
Width = 585
End
Begin VB.PictureBox Pic_SelectedColor
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 630
Left = 4455
ScaleHeight = 570
ScaleWidth = 1140
TabIndex = 10
Top = 1440
Width = 1200
End
Begin VB.PictureBox Pic_RGB
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 1
Left = 3840
ScaleHeight = 360
ScaleWidth = 525
TabIndex = 16
Top = 1680
Width = 585
End
Begin VB.HScrollBar Scrl_RGB
Height = 300
Index = 1
LargeChange = 10
Left = 750
Max = 255
TabIndex = 5
Top = 1740
Width = 2550
End
Begin VB.TextBox Txt_RGB
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 1
Left = 3315
TabIndex = 8
Top = 1740
Width = 480
End
Begin VB.PictureBox Pic_RGB
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 2
Left = 3840
ScaleHeight = 360
ScaleWidth = 525
TabIndex = 17
Top = 2100
Width = 585
End
Begin VB.HScrollBar Scrl_RGB
Height = 300
Index = 2
LargeChange = 10
Left = 750
Max = 255
TabIndex = 6
Top = 2220
Width = 2550
End
Begin VB.TextBox Txt_RGB
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 2
Left = 3330
TabIndex = 9
Top = 2220
Width = 480
End
Begin VB.PictureBox Pic_NearestSolidColor
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 630
Left = 4455
ScaleHeight = 570
ScaleWidth = 1140
TabIndex = 11
Top = 2445
Width = 1200
End
Begin VB.CommandButton Cmd_OK
Cancel = -1 'True
Caption = "&Done"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 75
TabIndex = 12
Top = 2640
Width = 1305
End
Begin VB.CommandButton Cmd_Set
Caption = "&Set"
Default = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic